home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilfile / shelldem.lha / Demo.drive next >
Text File  |  1996-10-28  |  481b  |  38 lines
  1. Set >NIL: Trash ?
  2.  
  3. Lab DrLopek
  4.  
  5. Echo "  \\ " NOLINE
  6. SetENV T:DemoSmer 1
  7. Set >NIL: Trash ?
  8. IF "$Trash" eq "q"
  9. Skip DrKonec
  10. EndIF
  11.  
  12. Echo "   ||" NOLINE
  13. SetENV T:DemoSmer 0
  14. Set >NIL: Trash ?
  15. IF "$Trash" eq "q"
  16. Skip DrKonec
  17. EndIF
  18.  
  19. Echo "  // " NOLINE
  20. SetENV T:DemoSmer -1
  21. Set >NIL: Trash ?
  22. IF "$Trash" eq "q"
  23. Skip DrKonec
  24. EndIF
  25.  
  26. Echo " ||  " NOLINE
  27. SetENV T:DemoSmer 0
  28. Set >NIL: Trash ?
  29. IF "$Trash" eq "q"
  30. Skip DrKonec
  31. EndIF
  32.  
  33. Skip DrLopek BACK
  34.  
  35. Lab DrKonec
  36. SetENV T:DemoSmer 000
  37. EndCli
  38.